約 4,105,697 件
https://w.atwiki.jp/hasekun/pages/86.html
地味ですが、画面の中央に、枠が出ます。なにげに、慣れると、出なくなると騒がれるマークですｗ 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）?
https://w.atwiki.jp/ce00582/pages/5799.html
package sql; import tool.*; import java.io.*; public class pro { int s,datanumber,artistnumber; String[] data=new String[50000]; String[] artist=new String[50000]; String[] dic=new String[50000]; String[] year=new String[50000]; String[] month=new String[50000]; String[] point=new String[50000]; int[] number=new int[50000]; int sx,h; public static void main(String[] args) { pro test=new pro(); } pro(){ readfile sub=new readfile(); sub.makedata("ame.csv","UTF-8"); datanumber=sub.datanumber; data=sub.data; sx=0; for(s=2;s datanumber+1;s++){ String[] x=data[s].split(","); sx=sx+1; artist[sx]=x[0]; year[sx]=x[1]; month[sx]=x[2]; point[sx]=x[3]; } datanumber=sx; System.out.println(datanumber); for(s=1;s datanumber+1;s++){ h=0; for(sx=1;sx artistnumber+1;sx++){ if(artist[s].equals(dic[sx]))h=100; } if(h 50)artistnumber=artistnumber+1; if(h 50)dic[artistnumber]=artist[s]; } for(s=1;s datanumber+1;s++){ for(sx=1;sx artistnumber+1;sx++){ if(artist[s].equals(dic[sx]))number[s]=sx; } } writex("ren.txt"); writeartist("artist.txt"); } void writeartist(String file){ try{ PrintWriter pw = new PrintWriter (new BufferedWriter(new FileWriter(file))); for(s=1;s artistnumber+1;s++){ pw.println(dic[s]); } System.out.println("ファイルに書きこみました。"); pw.close(); } catch(IOException ep){ System.out.println("入出力エラーです。"); } } void writex(String file){ try{ PrintWriter pw = new PrintWriter (new BufferedWriter(new FileWriter(file))); for(s=1;s datanumber+1;s++){ pw.print(number[s]); pw.print(","); pw.print(year[s]); pw.print(","); pw.print(month[s]); pw.print(","); pw.println(point[s]); } System.out.println("ファイルに書きこみました。"); pw.close(); } catch(IOException ep){ System.out.println("入出力エラーです。"); } } }
https://w.atwiki.jp/hasekun/pages/419.html
通常は このように タイトル 1 2 3 4 最後に記入欄ですが タイトル 記入欄 末尾 4 3 2 1のように逆に表示させています 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）?
https://w.atwiki.jp/mieyanman/pages/22.html
zip2 zip3 [sqlplus_csv] clsDesc.vb Public Class clsDesc Public Property c0Name As String = "" Public Property c1Null As String = "" Public Property c2Type As String = "" End Class clsSelectionRowsMove.vb Public Class clsSelectionRowsMove Dim m_DataGridView As DataGridView = Nothing Dim m_RowsCount As Integer = 0 Dim m_SelectedRowsCount As Integer = 0 Dim m_SelectedRowMin As Integer = 0 Dim m_SelectedRowMax As Integer = 0 Dim m_MoveUpEnabled As Boolean = False Dim m_MoveDownEnabled As Boolean = False Public ReadOnly Property RowsCount() As Integer Get Return m_RowsCount End Get End Property Public ReadOnly Property SelectedRowsCount() As Integer Get Return m_SelectedRowsCount End Get End Property Public ReadOnly Property SelectedRowMin() As Integer Get Return m_SelectedRowMin End Get End Property Public ReadOnly Property SelectedRowMax() As Integer Get Return m_SelectedRowMax End Get End Property Public ReadOnly Property MoveUpEnabled() As Boolean Get Return m_MoveUpEnabled End Get End Property Public ReadOnly Property MoveDownEnabled() As Boolean Get Return m_MoveDownEnabled End Get End Property Public Enum MoveType Top Up Down Bottom End Enum Public Sub New(wp_DataGridView As DataGridView) If wp_DataGridView Is Nothing Then Return End If m_DataGridView = wp_DataGridView m_RowsCount = m_DataGridView.Rows.Count If m_RowsCount 0 Then m_SelectedRowsCount = m_DataGridView.SelectedRows.Count If m_SelectedRowsCount 0 Then Dim w_RowMin As Integer = m_RowsCount Dim w_RowMax As Integer = 0 For i As Integer = m_SelectedRowsCount - 1 To 0 Step -1 If w_RowMin m_DataGridView.SelectedRows(i).Index Then w_RowMin = m_DataGridView.SelectedRows(i).Index End If If w_RowMax m_DataGridView.SelectedRows(i).Index Then w_RowMax = m_DataGridView.SelectedRows(i).Index End If Next m_SelectedRowMin = w_RowMin m_SelectedRowMax = w_RowMax If m_RowsCount 1 Then If m_SelectedRowMin 0 Then m_MoveUpEnabled = True End If If m_SelectedRowMax m_RowsCount - 1 Then m_MoveDownEnabled = True End If End If End If End If End Sub Public Sub SelectionRowsMove(wp_Move As MoveType) If m_DataGridView.SelectedRows.Count = 0 Then Return End If Dim w_SelectionRowList As New List(Of DataGridViewRow) For Each r As DataGridViewRow In m_DataGridView.SelectedRows w_SelectionRowList.Add(r) m_DataGridView.Rows.Remove(r) Next Dim w_Row1 As Integer = 0 Select Case wp_Move Case MoveType.Top w_Row1 = 0 Case MoveType.Up w_Row1 = m_SelectedRowMin - 1 Case MoveType.Down w_Row1 = m_SelectedRowMin + 1 Case MoveType.Bottom w_Row1 = m_DataGridView.Rows.Count Case Else End Select Dim w_Row2 As Integer = w_Row1 + w_SelectionRowList.Count - 1 m_DataGridView.Rows.Insert(w_Row1, w_SelectionRowList.Count) For i As Integer = 0 To w_SelectionRowList.Count - 1 For j As Integer = 0 To m_DataGridView.Columns.Count - 1 m_DataGridView.Rows(w_Row2 - i).Cells(j).Value = w_SelectionRowList(i).Cells(j).Value Next Next m_DataGridView.CurrentCell = m_DataGridView.Rows(w_Row1).Cells(0) For i As Integer = w_Row1 To w_Row2 m_DataGridView.Rows(i).Selected = True Next End Sub End Class frmCsvFile.Designer.vb Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() _ Partial Class frmCsvFile Inherits System.Windows.Forms.Form フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 System.Diagnostics.DebuggerNonUserCode() _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Windows フォーム デザイナーで必要です。 Private components As System.ComponentModel.IContainer メモ 以下のプロシージャは Windows フォーム デザイナーで必要です。 Windows フォーム デザイナーを使用して変更できます。 コード エディターを使って変更しないでください。 System.Diagnostics.DebuggerStepThrough() _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.TxtConnect = New System.Windows.Forms.TextBox() Me.TxtTableName = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.TxtWorkFolder = New System.Windows.Forms.TextBox() Me.DataGridView1 = New System.Windows.Forms.DataGridView() Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.TmiOpen = New System.Windows.Forms.ToolStripMenuItem() Me.TmiAdd = New System.Windows.Forms.ToolStripMenuItem() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TxtCsvFile = New System.Windows.Forms.TextBox() Me.TxtSqlFile = New System.Windows.Forms.TextBox() Me.TxtBatFile = New System.Windows.Forms.TextBox() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ChkDelWorkFile = New System.Windows.Forms.CheckBox() Me.DataGridView2 = New System.Windows.Forms.DataGridView() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.TmiTop = New System.Windows.Forms.ToolStripMenuItem() Me.TmiUp = New System.Windows.Forms.ToolStripMenuItem() Me.TmiDown = New System.Windows.Forms.ToolStripMenuItem() Me.TmiBottom = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip2.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() Me.SuspendLayout() Label1 Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(47, 12) Me.Label1.TabIndex = 0 Me.Label1.Text = "Connect" Label2 Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(12, 35) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(62, 12) Me.Label2.TabIndex = 1 Me.Label2.Text = "TableName" TxtConnect Me.TxtConnect.Location = New System.Drawing.Point(81, 6) Me.TxtConnect.Name = "TxtConnect" Me.TxtConnect.Size = New System.Drawing.Size(100, 19) Me.TxtConnect.TabIndex = 2 TxtTableName Me.TxtTableName.Location = New System.Drawing.Point(81, 31) Me.TxtTableName.Name = "TxtTableName" Me.TxtTableName.Size = New System.Drawing.Size(100, 19) Me.TxtTableName.TabIndex = 3 Button1 Me.Button1.Location = New System.Drawing.Point(435, 2) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 4 Me.Button1.Text = "csv作成" Me.Button1.UseVisualStyleBackColor = True Label3 Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(12, 59) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(62, 12) Me.Label3.TabIndex = 5 Me.Label3.Text = "WorkFolder" TxtWorkFolder Me.TxtWorkFolder.Location = New System.Drawing.Point(81, 56) Me.TxtWorkFolder.Name = "TxtWorkFolder" Me.TxtWorkFolder.Size = New System.Drawing.Size(100, 19) Me.TxtWorkFolder.TabIndex = 6 Me.TxtWorkFolder.Text = "C \Temp\sql" DataGridView1 Me.DataGridView1.AllowUserToAddRows = False Me.DataGridView1.AllowUserToDeleteRows = False Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3}) Me.DataGridView1.ContextMenuStrip = Me.ContextMenuStrip1 Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView1.Location = New System.Drawing.Point(0, 0) Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.ReadOnly = True Me.DataGridView1.RowTemplate.Height = 21 Me.DataGridView1.Size = New System.Drawing.Size(434, 383) Me.DataGridView1.TabIndex = 7 Column1 Me.Column1.HeaderText = "名前" Me.Column1.Name = "Column1" Me.Column1.ReadOnly = True Column2 Me.Column2.HeaderText = "NULL?" Me.Column2.Name = "Column2" Me.Column2.ReadOnly = True Column3 Me.Column3.HeaderText = "型" Me.Column3.Name = "Column3" Me.Column3.ReadOnly = True ContextMenuStrip1 Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TmiOpen, Me.TmiAdd}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(154, 48) TmiOpen Me.TmiOpen.Name = "TmiOpen" Me.TmiOpen.Size = New System.Drawing.Size(153, 22) Me.TmiOpen.Text = "tabファイルを開く" TmiAdd Me.TmiAdd.Name = "TmiAdd" Me.TmiAdd.Size = New System.Drawing.Size(153, 22) Me.TmiAdd.Text = "列追加" Label4 Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(234, 9) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(42, 12) Me.Label4.TabIndex = 8 Me.Label4.Text = "csvFile" Label5 Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(234, 35) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(39, 12) Me.Label5.TabIndex = 9 Me.Label5.Text = "sqlFile" Label6 Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(234, 59) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(40, 12) Me.Label6.TabIndex = 10 Me.Label6.Text = "batFile" TxtCsvFile Me.TxtCsvFile.Location = New System.Drawing.Point(280, 6) Me.TxtCsvFile.Name = "TxtCsvFile" Me.TxtCsvFile.Size = New System.Drawing.Size(100, 19) Me.TxtCsvFile.TabIndex = 11 TxtSqlFile Me.TxtSqlFile.Location = New System.Drawing.Point(280, 31) Me.TxtSqlFile.Name = "TxtSqlFile" Me.TxtSqlFile.Size = New System.Drawing.Size(100, 19) Me.TxtSqlFile.TabIndex = 12 Me.TxtSqlFile.Text = "csv.sql" TxtBatFile Me.TxtBatFile.Location = New System.Drawing.Point(280, 56) Me.TxtBatFile.Name = "TxtBatFile" Me.TxtBatFile.Size = New System.Drawing.Size(100, 19) Me.TxtBatFile.TabIndex = 13 Me.TxtBatFile.Text = "csv.bat" Button2 Me.Button2.Location = New System.Drawing.Point(435, 27) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(75, 23) Me.Button2.TabIndex = 14 Me.Button2.Text = "csv開く" Me.Button2.UseVisualStyleBackColor = True Button3 Me.Button3.Location = New System.Drawing.Point(435, 52) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(75, 23) Me.Button3.TabIndex = 15 Me.Button3.Text = "フォルダ開く" Me.Button3.UseVisualStyleBackColor = True ChkDelWorkFile Me.ChkDelWorkFile.AutoSize = True Me.ChkDelWorkFile.Checked = True Me.ChkDelWorkFile.CheckState = System.Windows.Forms.CheckState.Checked Me.ChkDelWorkFile.Location = New System.Drawing.Point(551, 5) Me.ChkDelWorkFile.Name = "ChkDelWorkFile" Me.ChkDelWorkFile.Size = New System.Drawing.Size(85, 16) Me.ChkDelWorkFile.TabIndex = 16 Me.ChkDelWorkFile.Text = "DelWorkFile" Me.ChkDelWorkFile.UseVisualStyleBackColor = True DataGridView2 Me.DataGridView2.AllowUserToAddRows = False Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3}) Me.DataGridView2.ContextMenuStrip = Me.ContextMenuStrip2 Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView2.Location = New System.Drawing.Point(0, 0) Me.DataGridView2.Name = "DataGridView2" Me.DataGridView2.ReadOnly = True Me.DataGridView2.RowTemplate.Height = 21 Me.DataGridView2.Size = New System.Drawing.Size(302, 383) Me.DataGridView2.TabIndex = 17 DataGridViewTextBoxColumn1 Me.DataGridViewTextBoxColumn1.HeaderText = "名前" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.ReadOnly = True DataGridViewTextBoxColumn3 Me.DataGridViewTextBoxColumn3.HeaderText = "型" Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" Me.DataGridViewTextBoxColumn3.ReadOnly = True ContextMenuStrip2 Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TmiTop, Me.TmiUp, Me.TmiDown, Me.TmiBottom}) Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(99, 92) TmiTop Me.TmiTop.Name = "TmiTop" Me.TmiTop.Size = New System.Drawing.Size(98, 22) Me.TmiTop.Text = "最上" TmiUp Me.TmiUp.Name = "TmiUp" Me.TmiUp.Size = New System.Drawing.Size(98, 22) Me.TmiUp.Text = "上へ" TmiDown Me.TmiDown.Name = "TmiDown" Me.TmiDown.Size = New System.Drawing.Size(98, 22) Me.TmiDown.Text = "下へ" TmiBottom Me.TmiBottom.Name = "TmiBottom" Me.TmiBottom.Size = New System.Drawing.Size(98, 22) Me.TmiBottom.Text = "最下" SplitContainer1 Me.SplitContainer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.SplitContainer1.Location = New System.Drawing.Point(14, 81) Me.SplitContainer1.Name = "SplitContainer1" SplitContainer1.Panel1 Me.SplitContainer1.Panel1.Controls.Add(Me.DataGridView1) SplitContainer1.Panel2 Me.SplitContainer1.Panel2.Controls.Add(Me.DataGridView2) Me.SplitContainer1.Size = New System.Drawing.Size(744, 385) Me.SplitContainer1.SplitterDistance = 436 Me.SplitContainer1.TabIndex = 18 frmCsvFile Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(770, 478) Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.ChkDelWorkFile) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.TxtBatFile) Me.Controls.Add(Me.TxtSqlFile) Me.Controls.Add(Me.TxtCsvFile) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.TxtWorkFolder) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TxtTableName) Me.Controls.Add(Me.TxtConnect) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Name = "frmCsvFile" Me.Text = "tabファイルを基にcsvファイルを作成" CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip1.ResumeLayout(False) CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuStrip2.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TxtConnect As System.Windows.Forms.TextBox Friend WithEvents TxtTableName As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TxtWorkFolder As System.Windows.Forms.TextBox Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TxtCsvFile As System.Windows.Forms.TextBox Friend WithEvents TxtSqlFile As System.Windows.Forms.TextBox Friend WithEvents TxtBatFile As System.Windows.Forms.TextBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents ChkDelWorkFile As System.Windows.Forms.CheckBox Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents TmiOpen As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiAdd As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip Friend WithEvents TmiTop As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiUp As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiDown As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TmiBottom As System.Windows.Forms.ToolStripMenuItem Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer End Class frmCsvFile.vb Imports System.Text.RegularExpressions Public Class frmCsvFile Private Enum me_Col1 c0Name c1Null c2Type End Enum Private Enum me_Col2 c0Name c1Type End Enum Private m_SelectionRowsMove As New clsSelectionRowsMove(Me.DataGridView2) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.TxtConnect.Text = pf_GetIni("", "CSV", "Connect", "ユーザ名/パスワード@ネットサービス名") Me.TxtTableName.Text = pf_GetIni("", "CSV", "TableName", "DUAL") Me.TxtWorkFolder.Text = pf_GetIni("", "CSV", "WorkFolder", "C \Temp\sql") Me.TxtCsvFile.Text = pf_GetIni("", "CSV", "csvFile", "csv.csv") Me.TxtSqlFile.Text = pf_GetIni("", "CSV", "sqlFile", "csv.sql") Me.TxtBatFile.Text = pf_GetIni("", "CSV", "batFile", "csv.bat") Me.TmiTop.Enabled = False Me.TmiUp.Enabled = False Me.TmiDown.Enabled = False Me.TmiBottom.Enabled = False End Sub Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Call ps_PutIni("", "CSV", "Connect", Me.TxtConnect.Text) Call ps_PutIni("", "CSV", "TableName", Me.TxtTableName.Text) Call ps_PutIni("", "CSV", "WorkFolder", Me.TxtWorkFolder.Text) Call ps_PutIni("", "CSV", "csvFile", Me.TxtCsvFile.Text) Call ps_PutIni("", "CSV", "sqlFile", Me.TxtSqlFile.Text) Call ps_PutIni("", "CSV", "batFile", Me.TxtBatFile.Text) If Me.ChkDelWorkFile.Checked Then Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_DelFile(w_BatFile) Call ms_DelFile(w_SqlFile) End If End Sub Private Sub DataGridView1_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting If e.ColumnIndex 0 AndAlso e.RowIndex = 0 Then Call e.Paint(e.ClipBounds, DataGridViewPaintParts.All) Dim rect As Rectangle = e.CellBounds Call rect.Inflate(-2, -2) Call TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), e.CellStyle.Font, rect, e.CellStyle.ForeColor, TextFormatFlags.Right Or TextFormatFlags.VerticalCenter) e.Handled = True End If End Sub Private Sub DataGridView2_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView2.CellPainting If e.ColumnIndex 0 AndAlso e.RowIndex = 0 Then Call e.Paint(e.ClipBounds, DataGridViewPaintParts.All) Dim rect As Rectangle = e.CellBounds Call rect.Inflate(-2, -2) Call TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), e.CellStyle.Font, rect, e.CellStyle.ForeColor, TextFormatFlags.Right Or TextFormatFlags.VerticalCenter) e.Handled = True End If End Sub Private Sub DataGridView2_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView2.SelectionChanged m_SelectionRowsMove = New clsSelectionRowsMove(Me.DataGridView2) If Me.TmiUp.Enabled m_SelectionRowsMove.MoveUpEnabled Then Me.TmiUp.Enabled = m_SelectionRowsMove.MoveUpEnabled Me.TmiTop.Enabled = m_SelectionRowsMove.MoveUpEnabled End If If Me.TmiDown.Enabled m_SelectionRowsMove.MoveDownEnabled Then Me.TmiDown.Enabled = m_SelectionRowsMove.MoveDownEnabled Me.TmiBottom.Enabled = m_SelectionRowsMove.MoveDownEnabled End If End Sub Private Sub TsbTop_Click(sender As System.Object, e As System.EventArgs) Handles TmiTop.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Top) End Sub Private Sub TsbUp_Click(sender As System.Object, e As System.EventArgs) Handles TmiUp.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Up) End Sub Private Sub TsbDown_Click(sender As System.Object, e As System.EventArgs) Handles TmiDown.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Down) End Sub Private Sub TsbBottom_Click(sender As System.Object, e As System.EventArgs) Handles TmiBottom.Click Call m_SelectionRowsMove.SelectionRowsMove(clsSelectionRowsMove.MoveType.Bottom) End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Me.DataGridView1.Rows.Count = 0 Then MsgBox("tabファイルを開いてください。", MsgBoxStyle.SystemModal) Return End If If Me.DataGridView2.Rows.Count = 0 Then MsgBox("列追加してください。", MsgBoxStyle.SystemModal) Return End If Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_CsvFile As String = String.Format("{0}\{1}.csv", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Dim w_TableName As String = Me.TxtTableName.Text.ToUpper Dim w_CsvSql As String = mf_GetCsvSql(w_CsvFile, w_TableName, Me.TxtConnect.Text) Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Call ms_StreamWriter(w_SqlFile, w_CsvSql) Dim w_BatCommand As String = String.Format("SQLPLUS {0} @{1}", Me.TxtConnect.Text, w_SqlFile) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_StreamWriter(w_BatFile, w_BatCommand) Call ms_StartProcessWaitForExit(w_BatFile) Select Case MsgBox("csvファイルを開きますか。", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.SystemModal, "確認") Case MsgBoxResult.Yes Call ms_StartProcess(w_CsvFile) Case Else End Select End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_CsvFile As String = String.Format("{0}\{1}.csv", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Call ms_StartProcess(w_CsvFile) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Dim w_WorkFolder As String = Me.TxtWorkFolder.Text Call ms_StartProcess(w_WorkFolder) End Sub Private Sub TmiOpen_Click(sender As System.Object, e As System.EventArgs) Handles TmiOpen.Click Dim w_tabFile As String = mf_FileOpenDialog() If w_tabFile = "" Then Return End If Me.TxtTableName.Text = System.IO.Path.GetFileNameWithoutExtension(w_tabFile) Me.TxtCsvFile.Text = String.Format("{0}.csv", Me.TxtTableName.Text) Dim w_FileText As String = mf_GetFileText(w_tabFile) Dim w_DescList As List(Of clsDesc) = mf_FileTextToDescList(w_FileText) Me.DataGridView1.Rows.Clear() If w_DescList.Count 0 Then Me.DataGridView1.Rows.Add(w_DescList.Count) For i As Integer = 0 To w_DescList.Count - 1 Me.DataGridView1.Rows(i).Cells(me_Col1.c0Name).Value = w_DescList(i).c0Name Me.DataGridView1.Rows(i).Cells(me_Col1.c1Null).Value = w_DescList(i).c1Null Me.DataGridView1.Rows(i).Cells(me_Col1.c2Type).Value = w_DescList(i).c2Type Next Me.DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) End If End Sub Private Sub TmiAdd_Click(sender As System.Object, e As System.EventArgs) Handles TmiAdd.Click Dim w_ColumnList As List(Of clsDesc) = mf_GetSelectionColumns() Call ms_AddQuery(w_ColumnList) End Sub Private Function mf_GetCsvSql(wp_TxtFile As String, wp_TableName As String, wp_Connect As String) As String Dim sb As New sb() sb.Add("connect {0}", wp_Connect) sb.Add("set echo off") sb.Add("set heading off") sb.Add("set pagesize 0") sb.Add("set feedback off") sb.Add("set linesize 32767") sb.Add("set trimspool on") sb.Add("spool {0}", wp_TxtFile) sb.Add("SELECT ""列番"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", i + 1) Next sb.Add(" AS 列番") sb.Add("FROM DUAL;") sb.Add("SELECT ""列型"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c1Type).Value)) Next sb.Add(" AS 列型") sb.Add("FROM DUAL;") sb.Add("SELECT ""列名"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 sb.Add(" || ,""{0}"" ", mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c0Name).Value)) Next sb.Add(" AS 列名") sb.Add("FROM DUAL;") sb.Add("SELECT ""明細"" ") For i As Integer = 0 To Me.DataGridView2.Rows.Count - 1 Dim w_c0Name As String = mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c0Name).Value) Dim w_c1Type As String = mf_ObjectToString(Me.DataGridView2.Rows(i).Cells(me_Col2.c1Type).Value) Select Case True Case w_c1Type Like "NUMBER*" w_c0Name = String.Format(" || ,"" || TO_CHAR({0}) || "" ", w_c0Name) Case w_c1Type Like "DATE*" w_c0Name = String.Format(" || ,"" || TO_CHAR({0}, YYYY/MM/DD HH24 MI SS ) || "" ", w_c0Name) Case Else w_c0Name = String.Format(" || ,"" || {0} || "" ", w_c0Name) End Select sb.Add("{0}", w_c0Name) Next sb.Add(" AS 明細") sb.Add("FROM {0};", wp_TableName) sb.Add("spool off") sb.Add("set linesize 80") sb.Add("clear") sb.Add("exit") Return sb.ToString End Function Private Sub ms_StreamWriter(wp_File As String, wp_Text As String) Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sw As New System.IO.StreamWriter(wp_File, False, enc) sw.Write(wp_Text) sw.Close() End Sub Private Sub ms_StartProcessWaitForExit(wp_BatFile As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_BatFile) p.WaitForExit() p.Close() p.Dispose() End Sub Private Sub ms_StartProcess(wp_File As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_File) End Sub Private Function mf_GetFileText(wp_TxtFile As String) As String Dim ret As String = "" Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sr As New System.IO.StreamReader(wp_TxtFile, enc) ret = sr.ReadToEnd() sr.Close() Return ret End Function Private Function mf_FileTextToDescList(wp_FileText As String) As List(Of clsDesc) Dim ret As New List(Of clsDesc) Dim a1 As String() = Split(wp_FileText, vbCrLf, -1, CompareMethod.Text) For i As Integer = 0 To a1.Count - 1 Dim a2 As String() = Split(a1(i), vbTab, -1, CompareMethod.Text) Select Case a2.Count Case 3 Dim w_Desc As New clsDesc() w_Desc.c0Name = a2(0) w_Desc.c1Null = a2(1) w_Desc.c2Type = a2(2) ret.Add(w_Desc) Case Else End Select Next Return ret End Function Private Function mf_ObjectToString(wp_Object As Object) As String Dim ret As String = "" If Not wp_Object Is Nothing Then ret = wp_Object.ToString End If Return ret End Function Private Sub ms_DelFile(wp_File As String) System.IO.File.Delete(wp_File) End Sub Private Function mf_FileOpenDialog() As String Dim ret As String = "" Dim d As New OpenFileDialog() d.FileName = "" d.InitialDirectory = Me.TxtWorkFolder.Text d.Filter = "tabファイル(*.tab)|*.tab|すべてのファイル(*.*)|*.*" d.FilterIndex = 1 d.Title = "開くファイルを選択してください" d.RestoreDirectory = True If d.ShowDialog() = DialogResult.OK Then ret = d.FileName End If Return ret End Function Private Function mf_GetSelectionColumns() As List(Of clsDesc) Dim ret As New List(Of clsDesc) For Each r As DataGridViewRow In Me.DataGridView1.SelectedRows Dim w As New clsDesc() w.c0Name = mf_ObjectToString(r.Cells(me_Col1.c0Name).Value) w.c1Null = mf_ObjectToString(r.Cells(me_Col1.c1Null).Value) w.c2Type = mf_ObjectToString(r.Cells(me_Col1.c2Type).Value) ret.Add(w) r.Selected = False Next Return ret End Function Private Sub ms_AddQuery(wp_ColumnList As List(Of clsDesc)) If wp_ColumnList.Count = 0 Then Return End If For Each r As DataGridViewRow In Me.DataGridView2.Rows If r.Selected Then r.Selected = False End If Next Me.DataGridView2.Rows.Add(wp_ColumnList.Count) For i As Integer = 0 To wp_ColumnList.Count - 1 Dim w_Row As Integer = Me.DataGridView2.Rows.Count - i - 1 Me.DataGridView2.Rows(w_Row).Cells(me_Col2.c0Name).Value = wp_ColumnList(i).c0Name Me.DataGridView2.Rows(w_Row).Cells(me_Col2.c1Type).Value = wp_ColumnList(i).c2Type Me.DataGridView2.Rows(w_Row).Selected = True Next Me.DataGridView2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) Me.DataGridView2.Focus() End Sub End Class mdlInit.vb Imports System.Runtime.InteropServices Module mdlInit DllImport("KERNEL32.DLL", CharSet =CharSet.Auto) _ Public Function GetPrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As System.Text.StringBuilder, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Integer End Function DllImport("KERNEL32.DLL") _ Public Function WritePrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer End Function Public Function pf_GetIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_Default As String) As String Dim ret As String = wp_Default Dim sb As New System.Text.StringBuilder sb.Capacity = 256 Dim i As Integer = GetPrivateProfileString(wp_section, wp_key, wp_Default, sb, sb.Capacity, mf_path(wp_path)) ret = sb.ToString Return ret End Function Public Sub ps_PutIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_value As String) Dim i As Integer = WritePrivateProfileString(wp_section, wp_key, wp_value, mf_path(wp_path)) End Sub Private Function mf_path(ByVal wp_path As String) As String Dim ret As String = wp_path If ret = "" Then Dim w_path As String = Application.StartupPath If w_path.EndsWith("\") = False Then w_path = w_path "\" End If ret = String.Format("{0}{1}.ini", w_path, My.Application.Info.AssemblyName) End If Return ret End Function End Module sb.vb Public Class sb Private m_sb As System.Text.StringBuilder Public Sub New() m_sb = New System.Text.StringBuilder() End Sub Public Overrides Function ToString() As String Return m_sb.ToString() End Function Public Function Add(ByVal wp_String As String, ByVal ParamArray wp_Args() As Object) m_sb.AppendFormat(wp_String, wp_Args) m_sb.Append(ControlChars.CrLf) Return m_sb End Function Public Function ToStringRemoveLastCrLf() As String Dim ret As String = m_sb.ToString If ret.Length = vbCrLf.Length Then Dim i As Integer = ret.Length - vbCrLf.Length Dim w As String = ret.Substring(i) If w = vbCrLf Then ret = ret.Substring(0, i) End If End If Return ret End Function Public Sub cb() Clipboard.SetText(m_sb.ToString()) End Sub End Class
https://w.atwiki.jp/hasekun/pages/87.html
標準では、最後が領地しかないはずですが、beyond導入後は ここで、★(GET)Level(GET)をおすと、このように。領地管理でＬＶ上げが出来なかった時代にどれを上げるかって探すのに便利でした このようになります。 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）? 発展チェッカー 報告書・同盟ログＣＳＶ出力 統計グラフ化 見た目を全部SRに置き換え機能
https://w.atwiki.jp/hasekun/pages/27.html
標準では これを下記のように変更します。 拠点リンク有＆大きめアイコン無 imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 拠点リンク有＆大きめアイコン有 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）?
https://w.atwiki.jp/3594bowwow2/pages/11.html
計略のCSVファイルの書式について ※ファイル名は、sch.csvです。場所は、sysフォルダ下(ver0.15b時) 編集する時に、Excelで行われているものと想定して書いています。 名称 計略の名称。あんまり長いとはみ出る。 説明 計略の説明文。ver0.15b(現在)意味は特に無い模様。 士気 その計略を使用した時の消費士気。 [TODO] 武将欄で決めた計略との整合性はどうなっているか詳細求む。 効果時間（x/y） 基礎時間/知力依存度。 xが基本時間、yが知力依存時間。単位はc。 強化系の場合 x+y*(使用した武将の知力)c、となっている。 妨害系の場合 x+ {y*(使用者自身の知力)}/(相手武将+z) c、となっている z=1 例)作者発言より。 計算方法。 劉備の大徳の場合4.5/0.5なので計略時間は 4.5c＋0.5c×知力 劉備の知力が7なので、合計8cとなる。 馬鹿かけられたら知力が０になるので、基礎時間のみの4.5cに減少 妨害計略の場合は計算方法に相手知力も関わってきます。 たとえばﾎｳ銃の連環の計2/4.6を例に挙げると 2c+4.6c×自分の知力÷(相手の知力+Y) (Y=1) になります。 知力9のﾎｳ銃が知力0に連環の計を使った場合、 2+(4.6*9)/0=43.4cとなるわけですね。 多すぎですね。 つーか知力0でうっても2cもちますね。 効果範囲 計略の範囲あるいは対象。だいたい見ればわかる。 復活系計略のみ、自軍撤退/個別/n（nは復活させる人数）と記述する必要がある。 範囲補足（n/x/y/z） 計略の対象範囲。円形・矩形の場合に使用。 nには固定、前方、位置のいずれかが入る。 固定と位置の違いは、固定は自分中心の号令や水計系など向きに依存しない物。 位置は名君など完全にMAP上の位置を指定するもの。 x/y/zは位置と範囲の指定。 円形・矩形、固定・前方・位置で数値の意味が変わる。 円形／固定：x/yが中心の位置（武将の位置から前方向にx、右方向にyだけずれる）zが半径 円形／前方：xが中心の位置（武将からの距離）yは0以外の計略が無く不明、zが半径 矩形／固定：xが中心の位置（武将の位置から前方向にxだけずれる）yが縦幅、zが横幅 矩形／前方：xが横幅、yが縦幅、zがおそらく起点の位置。これだけ最初ではなく最後の数字が位置の指定。 矩形／位置：xが中心の位置（0が中央、数値が大きいほど敵陣側、小さいほど自陣側に寄る）yが縦幅、zが横幅。 ※範囲を横にずらして、MAP右下1/4だけを範囲にするような事はできない模様。 対象種別 勢力名、あるいは兵種名を入れる。 ここに記述があると、その勢力あるいは兵種にしかその計略がかからなくなる。省略した場合は制限なし。 武力 そのまんま。上昇値あるいは低下値を数値で指定。 「仇討ち」「目覚め」など特殊な計略専用の変数が記述されている事もある（知力、速度などに関しても同様） 知力 上昇値あるいは低下値を数値で指定。 速度 倍率を指定。2と入力すると2倍速、0.5と入力すると速度半減になる。 元ネタの某ゲームには上限があったが、こちらの限界は不明。 突撃ダメージ 恐らく、％で指定している箇所、詳しい仕様は不明。 [TODO] 突撃ダメージについての詳細。 攻城力 速度同様、倍率を指定。 持続効果 計略ごとの特色をつけるもの。 全て特定の単語で記述。意味はsch.csvを直接見て貰う事でだいたい見当がつくと思われる。 詳細は、持続効果一覧にて。 適用効果 上に同じ。 条件 上に同じ。 解析用 ver0.15b(現在)では、"/"をつけること。 これが無いと読み込まれない。
https://w.atwiki.jp/hasekun/pages/37.html
ここで表示する兵種は、Beyondの設定画面で設定出来ます。 imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 もし、特殊な速度を出したい場合、「その他」を選び、右側のテキストに同じ形式で個別に入力して下さい。 例）速度50の韓当＝「韓当単騎(50)」※微妙に誤差があるので、目安程度にしてください。 参考に、後半はこのように兵種を限定すると見やすいかもしれません。 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）?
https://w.atwiki.jp/hasekun/pages/91.html
出兵した場所にマークを付けます。 アイコンはカッコ悪いですが、槍を持った人をイメージｗ 攻撃はピンク、援軍は水色で表示します。 兵士画面を解析して表示します。時間がくれば消えます。 出兵キャンセルにも一応対応していますが、キャンセルを押しても時間切れでキャンセル出来ない場合、アイコンが消えてしまいます。 そんな時は、兵士画面を再度表示すれば、直ります。 NPC砦、領土情報検索ver2.49のドキュ連動を使用中の場合 このようになります。 小さいボタン 移動時間表示 君主★情報表示 書簡を複数に送付（最大○○人） 大きめアイコン 1? 領地レベル表示 書簡送信アシスタント 都市画面改善 2? 出発時刻計算 書簡同報リンク 建築表示機能 3? 出兵表示機能 書簡保存＆検索 拠点リンク機能 4? ヨロズダス引き忘れ防止機能 トレード画面入力改善 座標リンク機能 5? 武将の回復時間予測機能 トレード検索条件記憶 両端のカッコ無視 6? 拠点援軍ボタン機能 運営書簡開封/削除? 兵力整形機能 7? 名声獲得タイマー機能 トレードステータス表示 ログ合計表示機能 8? 都市リスト表示機能 トレード収入計算 合計を上に出す 9? マップの地形一覧 Auto_Bilder 完了時刻の表示(建物) 10? マップ中央表示 武将カード分類ツール 完了時刻の表示(ユニット) 11? マップ画面検索改善 武将ダス履歴抽出分析 Ver1.09 資源生産合計表示 12? NPC砦、領土情報検索ver2.49 ﾅﾋﾞｹﾞｰｼｮﾝにﾛｰﾙｵｰﾊﾞｰﾘﾝｸ追加 資源時間の表示 13? マップ移動距離カスタムver1.10 討伐・空き地 民兵出現 推定機 破棄中の領地表示 14? 内政武将表示ver1.09 ﾌﾞｼｮｰﾀﾞｽﾗｲﾄを引く画面一番上表示? 拠点生産量表示 メモ機能 map_tool_Ver.2.39.d4ex2 クエスト報酬自動取得 拠点の建設予約、破棄予約 フォント数(1～5)? 自動巡回 アイテム自動取得 同盟/君主表示? 幅高? 出兵予約 クエストの項目を全部表示? 同盟表示改善 領地リンクフォント? ミス防止補助 ﾄﾚｰﾄﾞ右ｸﾘｯｸで合成ｽｷﾙ表示? 同盟表示のソート スタイル変更 クエスト補助 一括破棄拡張? 同盟員座標表示 名声表示位置変更? 掲示板逆順表示 【 お 遊 び 】 ネタなツールたち ? 同盟員情報CSV ランキングの非表示 URLリンク変更スクリプト ○? 同盟貢献チェッカー 同盟ログ スキル込計算スクリプト ○? 発展チェッカー 報告書・同盟ログCSV出力 ルート表示 見た目を全部Lに置き換え機能? 右クリック拡張 JST表示 いろいろスクリプト(etcsより抜粋)? 見た目を全部URに置き換え機能 領地一覧からの領地破棄 統計グラフ化 トレードサポート(favoritetrade)? 見た目を全部SRに置き換え機能 領地画面から領地名変更 ００００ カード表示拡張と自動ブショーダス? 見た目を全部PR（MC☆あくしず）? 援軍・敵襲・出撃・帰還時間を表示 ００００ bro3_misc? 見た目を全部HR（MC☆あくしず）? 兵士誤発注回避 ００００ ００００ 見た目を全部UR（MC☆あくしず）? 出兵予約メニュー拡張 ００００ ００００ 見た目を全部SR（MC☆あくしず）?
https://w.atwiki.jp/iwankov4649/pages/33.html
関東学連 試合 男子1部 男子2部 女子1部 女子2部 第1日 CSV CSV CSV CSV 第2日 CSV CSV CSV CSV 第3日 CSV CSV CSV CSV 第4日 CSV CSV CSV CSV 第5日 CSV CSV CSV 第6日 CSV CSV CSV 第7日 CSV CSV 第8日 CSV CSV CSV 第9日 CSV CSV CSV 第10日 CSV CSV CSV 第11日 CSV CSV CSV